home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / DIALOG.DIR / 00004.ls < prev    next >
Encoding:
Text File  |  2003-10-01  |  220 b   |  16 lines
  1. on mouseDown
  2.   puppetSound(2, "button noise")
  3.   updateStage()
  4. end
  5.  
  6. on mouseUp
  7.   global gUI
  8.   repeat while soundBusy(2)
  9.     updateStage()
  10.   end repeat
  11.   tell the stage
  12.     closeDialogWin(gUI)
  13.     Prev(gUI)
  14.   end tell
  15. end
  16.